home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / C_Automp / AUTOTP / IMD.CST / 00008.ls < prev    next >
Encoding:
Text File  |  1996-07-16  |  161 b   |  9 lines
  1. on matchKey theKey, theList
  2.   repeat with x in theList
  3.     if x = charToNum(theKey) then
  4.       return TRUE
  5.       exit
  6.     end if
  7.   end repeat
  8.   return FALSE
  9. end